unit MaterielInBillHandle;

interface


uses
  Classes, ADOHandle, DB;


type

  TMaterielInBillData = class
  private
    FMaterielInType: string;
    FSupplierID: Integer;
    FDepotID: Integer;
    FEmployee: string;
    FOriginalNo: string;
    FManager: string;
    FID: Integer;
    FMaterielInTypeID: integer;
    FNote: string;
    FEmployeeID: Integer;
    FSupplier: string;
    FDepot: string;
    FBillDate: TDateTime;
    FTotalMoney: Currency;
    FBillNo: string;
    FManagerID: Integer;
    FIsOK: Boolean;
    FIsAuditing: Boolean;
    FDetailDataset: TDataset;
    procedure SetBillDate(const Value: TDateTime);
    procedure SetBillNo(const Value: string);
    procedure SetDepot(const Value: string);
    procedure SetDepotID(const Value: Integer);
    procedure SetEmployee(const Value: string);
    procedure SetEmployeeID(const Value: Integer);
    procedure SetID(const Value: Integer);
    procedure SetIsAuditing(const Value: Boolean);
    procedure SetIsOK(const Value: Boolean);
    procedure SetManager(const Value: string);
    procedure SetManagerID(const Value: Integer);
    procedure SetMaterielInType(const Value: string);
    procedure SetMaterielInTypeID(const Value: integer);
    procedure SetNote(const Value: string);
    procedure SetOriginalNo(const Value: string);
    procedure SetSupplier(const Value: string);
    procedure SetSupplierID(const Value: Integer);
    procedure SetTotalMoney(const Value: Currency);
    procedure SetDetailDataset(const Value: TDataset);
  published

  public
    property ID: Integer read FID write SetID;
    property BillNo: string read FBillNo write SetBillNo;
    property BillDate: TDateTime read FBillDate write SetBillDate;
    property OriginalNo: string read FOriginalNo write SetOriginalNo;

    property Employee: string read FEmployee write SetEmployee;
    property EmployeeID: Integer read FEmployeeID write SetEmployeeID;

    property DepotID: Integer read FDepotID write SetDepotID;
    property Depot: string read FDepot write SetDepot;

    property ManagerID: Integer read FManagerID write SetManagerID;
    property Manager: string read FManager write SetManager;

    property SupplierID: Integer read FSupplierID write SetSupplierID;
    property Supplier: string read FSupplier write SetSupplier;

    property MaterielInTypeID: integer read FMaterielInTypeID write SetMaterielInTypeID;
    property MaterielInType: string read FMaterielInType write SetMaterielInType;

    property TotalMoney: Currency read FTotalMoney write SetTotalMoney;

    property Note: string read FNote write SetNote;

    property IsAuditing: Boolean read FIsAuditing write SetIsAuditing;
    property IsOK: Boolean read FIsOK write SetIsOK;

    property DetailDataset: TDataset read FDetailDataset write SetDetailDataset;

  end;



  TMaterielInBillHandle = class(TADOHandle)

  public


  end;







implementation

{ TMaterielInBillData }

procedure TMaterielInBillData.SetBillDate(const Value: TDateTime);
begin
  FBillDate := Value;
end;

procedure TMaterielInBillData.SetBillNo(const Value: string);
begin
  FBillNo := Value;
end;

procedure TMaterielInBillData.SetDepot(const Value: string);
begin
  FDepot := Value;
end;

procedure TMaterielInBillData.SetDepotID(const Value: Integer);
begin
  FDepotID := Value;
end;

procedure TMaterielInBillData.SetDetailDataset(const Value: TDataset);
begin
  FDetailDataset := Value;
end;

procedure TMaterielInBillData.SetEmployee(const Value: string);
begin
  FEmployee := Value;
end;

procedure TMaterielInBillData.SetEmployeeID(const Value: Integer);
begin
  FEmployeeID := Value;
end;

procedure TMaterielInBillData.SetID(const Value: Integer);
begin
  FID := Value;
end;

procedure TMaterielInBillData.SetIsAuditing(const Value: Boolean);
begin
  FIsAuditing := Value;
end;

procedure TMaterielInBillData.SetIsOK(const Value: Boolean);
begin
  FIsOK := Value;
end;

procedure TMaterielInBillData.SetManager(const Value: string);
begin
  FManager := Value;
end;

procedure TMaterielInBillData.SetManagerID(const Value: Integer);
begin
  FManagerID := Value;
end;

procedure TMaterielInBillData.SetMaterielInType(const Value: string);
begin
  FMaterielInType := Value;
end;

procedure TMaterielInBillData.SetMaterielInTypeID(const Value: integer);
begin
  FMaterielInTypeID := Value;
end;

procedure TMaterielInBillData.SetNote(const Value: string);
begin
  FNote := Value;
end;

procedure TMaterielInBillData.SetOriginalNo(const Value: string);
begin
  FOriginalNo := Value;
end;

procedure TMaterielInBillData.SetSupplier(const Value: string);
begin
  FSupplier := Value;
end;

procedure TMaterielInBillData.SetSupplierID(const Value: Integer);
begin
  FSupplierID := Value;
end;

procedure TMaterielInBillData.SetTotalMoney(const Value: Currency);
begin
  FTotalMoney := Value;
end;

end.
